Ì i 2
abs.dpg (main)
[version,code]
*DRI[djc,dri]
Field Name Len Dat Typ J DPM Offset/Local/VAL
version 10 FREE L ABS.VERSION djc
code 2 PINT R dri
active 1 YN L *DRI[djc,dri]|0
custom 1 YN L *DRI[djc,dri]CU|0
id 2 PINT R
last.update 50 FREE L *DRI[djc,dri]UPD
last.user 10 FREE L MIS.USER *DRI[djc,dri]USR
name 70 FREE L *DRI[djc,dri]|1
name.50 50 FREE L VAL=(@ABS.DPG.name$50)
name.60 60 FREE L VAL=(@ABS.DPG.name$60)
proc 5 FREE L ABS.PROC
riw 10 DEC R
source 1 CHOICE L *DRI[djc,dri]|2
Ì 2
INDEX FILE/INTERNAL NAME SUBSCRIPTS/PHYSICAL BASE
abs.dpg.name.index [version,name,code]
name.index *DRIN[djc,driN,dri]
abs.dpg.proc.index [version,proc,code] = riw
proc.index *DRIP[djc,drc,dri]
|
|